home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 18 Board & Card Games / AC2C.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.1 KB  |  235 lines
  1. 5 POKE 53280,6:POKE 53281,7:PRINT"[147]"
  2. 6 GOSUB2200
  3. 10 DIM CARD(14,4):V=54272:PRINTCHR$(8)
  4. 15 XX= RND(-TI)
  5. 17 HAVE=1500
  6. 20 GOTO  700
  7. 25 GOSUB 800
  8. 30 GOTO  500
  9. 35 T=1:V(T)=I:S(T)=J:MO=0
  10. 40 GOSUB 900: GOSUB 800
  11. 45 T=2:V(T)=I:S(T)=J:MO=19
  12. 50 GOSUB 900:GOSUB 800
  13. 51 SP = ABS(V(1)-V(2)) -1
  14. 52 IF SP = 0 OR SP = -1 THEN 25
  15. 55 T=3:V(T)=I:S(T)=J:MO= 369
  16. 60 GOTO 600
  17. 62 GOTO 300
  18. 64 GOSUB 900
  19. 70 GOTO 200
  20. 80 FOR YY=1 TO 1700:NEXTYY
  21. 82 IF COUNT > 40 THEN GOTO 20
  22. 85 GOTO 25
  23. 100 VV= 54296:W=54276:A=54277:H=54273:L=54272
  24. 120 FOR X=2 TO0STEP-1:POKEVV,X:POKEW,129:POKE A,15:POKEH,40:POKEL,200:NEXT
  25. 130 POKE W,0:POKE A,0
  26. 140 GOTO 711
  27. 200 REM *** DECIDES IF YOU HAVE WON **
  28. 201 REM
  29. 202 R=O
  30. 205 IF(V(3)>V(1) AND V(3)<V(2)) OR (V(3)<V(1) AND V(3)>V(2)) THEN R=1
  31. 207 IF R=1ANDBET=0 THENPRINT" TOO BAD...YOU COULD HAVE WON";ODD*HAVE:GOTO 80
  32. 210 IF R=1 THEN PRINT" YOU WIN";BET*ODD:HAVE=HAVE+BET*ODD:GOTO 80
  33. 212 IF BET=0 THEN PRINT" GOOD CHOICE..YOU LOSE NOTHING":GOTO 80
  34. 215 PRINT" YOU LOSE";BET:HAVE=HAVE-BET
  35. 220 IF HAVE > 0 THEN GOTO 80
  36. 225 PRINT" YOU'RE OUT OF MONEY....."
  37. 230 PRINT" DO YOU WANT TO PLAY AGAIN Y/N";
  38. 232 GET A$: IF A$="" THEN 232
  39. 235 IF A$= "Y" THEN CLR:GOTO10
  40. 240 PRINTCHR$(9):END
  41. 300 REM *** BET INPUT-CARD SPREAD ***
  42. 305 ON SP GOTO 315,320,330,340,340,340,340,340,340,340,340
  43. 310 PRINT" WILL PAY 50:1":ODD=50 :GOTO 350
  44. 315 PRINT" WILL PAY 25:1":ODD= 25:GOTO 350
  45. 320 PRINT" WILL PAY 10:1":ODD= 10:GOTO 350
  46. 330 PRINT" WILL PAY 2:1":ODD=2:GOTO 350
  47. 340 PRINT" WILL PAY 1:1":ODD=1:GOTO 350
  48. 350 INPUT" BET:";BET
  49. 360 IF BET > HAVE THEN 350
  50. 400 REM ** ERASES 3RD CARD **
  51. 405 PRINT"         "
  52. 406 PRINT"         "
  53. 407 PRINT"         "
  54. 408 PRINT"         "
  55. 409 PRINT"         "
  56. 410 PRINT"         "
  57. 411 PRINT"         "
  58. 412 PRINT""
  59. 415 FORYY=1TO500:NEXT
  60. 420 GOTO64
  61. 500 PRINT"[147]":PRINTCHR$(144)
  62. 510 PRINT"      [213][195][195][195][195][195][195][195][195][195][201]     [160][160][160][213][195][195][195][195][195][195][195][195][195][201]"
  63. 520 PRINT"      [199]         [200]        [199]         [200]"
  64. 530 PRINT"      [199]         [200]        [199]         [200]"
  65. 540 PRINT"      [199]         [200][160][160][160] [160][160][160][160][199]         [200]"
  66. 550 PRINT"      [199]         [200]        [199][160] [160][160][160][160][160][160][160][200]"
  67. 555 PRINT"      [199]         [200]        [199]         [200]"
  68. 560 PRINT"      [199]         [200]        [199][160][160] [160][160][160][160][160][160][200]"
  69. 570 PRINT"      [199][160][160]    [160][160][160][200][160][160][160] [160][160][160][160][199][160] [160][160][160][160][160][160][160][200]"
  70. 580 PRINT"      [202][195][195][195][195][195][195][195][195][195][203]        [202][195][195][195][195][195][195][195][195][195][203]"
  71. 590 GOTO 35
  72. 600 PRINT"               [213][195][195][195][195][195][195][195][195][195][201] "
  73. 620 PRINT"               [199][166][166][166][166][166][166][166][166][166][200] "
  74. 630 PRINT"               [199][166][166][166][166][166][166][166][166][166][200] "
  75. 640 PRINT"               [199][166][166][166][166][166][166][166][166][166][200] "
  76. 650 PRINT"               [199][166][166][166][166][166][166][166][166][166][200] "
  77. 660 PRINT"               [199][166][166][166][166][166][166][166][166][166][200] "
  78. 665 PRINT"               [199][166][166][166][166][166][166][166][166][166][200] "
  79. 670 PRINT"               [199][166][166][166][166][166][166][166][166][166][200][160]"
  80. 680 PRINT"               [202][195][195][195][195][195][195][195][195][195][203] "
  81. 685 PRINT" HAVE:";HAVE
  82. 690 GOTO 62
  83. 700 REM *** SHUFFLES DECK ****
  84. 701 REM
  85. 704 PRINT"[147]":PRINT:PRINT:PRINT CHR$(144)
  86. 705 PRINT"     SHUFFLING DECK....."
  87. 712 FOR YY= 1 TO2000:NEXT YY
  88. 715 FOR D = 1 TO 4
  89. 720 FOR S = 1 TO 13
  90. 730 CARD(S,D) = 0
  91. 740 NEXT S
  92. 750 NEXT D
  93. 755 COUNT=0
  94. 760 GOTO 25
  95. 800 REM *** RANDOM CARD GENERATOR ***
  96. 802 REM
  97. 805 I = INT(RND(1)*13+2)
  98. 810 J = INT(RND(1)*4 +1)
  99. 820 IF CARD(I,J)=1 THEN 800
  100. 830 CARD(I,J) = 1
  101. 835 COUNT = COUNT + 1
  102. 840 RETURN
  103. 900 REM *** CARD VALUE OUTPUT *****
  104. 902 REM
  105. 905 ON V(T) GOTO 920,920,920,920,920,920,920,920,920,930,940,950,960,910
  106. 910 POKE MO+1151,1 :POKE MO+V+1151,9
  107. 916 GOTO 1000
  108. 920 POKEMO+1151,V(T)+48:POKE MO+V+1151,9
  109. 925 GOTO 1000
  110. 930 POKE MO+1151,49:POKE MO+V+1151,9
  111. 932 POKE MO+1152,48:POKE MO+V+1152,9
  112. 935 GOTO 1000
  113. 940 POKE MO+1151,10:POKE MO+V+1151,9
  114. 948 GOTO 1000
  115. 950 POKE MO+1151,17:POKE MO+V+1151,9
  116. 959 GOTO 1000
  117. 960 POKE MO+1151,11:POKE MO+V+1151,9
  118. 1000 REM ** DIAM=1 SPA=2 HEAR=3 CLUB=4
  119. 1002 REM
  120. 1005 IF S(T)=1 THEN PI=90  :C=2
  121. 1010 IF S(T)=2 THEN PI=65  :C=0
  122. 1020 IF S(T)=3 THEN PI=83  :C=2
  123. 1030 IF S(T)=4 THEN PI=88  :C=0
  124. 1035 POKE MO+1191,PI:POKE MO+V+1191,C
  125. 1037 IF V(T) >=12 THEN 1050
  126. 1040 ON V(T) GOTO 2000,1100,1200,1300,1400,1500,1600,1700,1800,1900,2000
  127. 1050 ON V(T)-11 GOTO 2000,2000,2100
  128. 1075 REM *** TWO CARD
  129. 1076 REM
  130. 1100 POKE MO+1195,PI: POKE MO+V+1195,C
  131. 1110 POKE MO+1355,PI: POKE MO+V+1355,C
  132. 1120 RETURN
  133. 1190 REM *** THREE CARD
  134. 1192 REN
  135. 1200 POKE MO+1195,PI: POKE MO+V+1195,C
  136. 1210 POKE MO+1275,PI: POKE MO+V+1275,C
  137. 1220 POKE MO+1355,PI: POKE MO+V+1355,C
  138. 1230 RETURN
  139. 1290 REM *** FOUR CARD
  140. 1292 REM
  141. 1300 POKE MO+1193,PI: POKE MO+V+1193,C
  142. 1310 POKE MO+1197,PI: POKE MO+V+1197,C
  143. 1320 POKE MO+1353,PI: POKE MO+V+1353,C
  144. 1330 POKE MO+1357,PI: POKE MO+V+1357,C
  145. 1340 RETURN
  146. 1390 REM *** FIVE CARD
  147. 1392 REM
  148. 1400 POKE MO+1193,PI: POKE MO+V+1193,C
  149. 1410 POKE MO+1197,PI: POKE MO+V+1197,C
  150. 1415 POKE MO+1275,PI: POKE MO+V+1275,C
  151. 1420 POKE MO+1353,PI: POKE MO+V+1353,C
  152. 1430 POKE MO+1357,PI: POKE MO+V+1357,C
  153. 1440 RETURN
  154. 1490 REM *** SIX CARD
  155. 1492 REM
  156. 1500 POKE MO+1193,PI: POKE MO+V+1193,C
  157. 1510 POKE MO+1197,PI: POKE MO+V+1197,C
  158. 1515 POKE MO+1273,PI: POKE MO+V+1273,C
  159. 1520 POKE MO+1353,PI: POKE MO+V+1353,C
  160. 1525 POKE MO+1277,PI: POKE MO+V+1277,C
  161. 1530 POKE MO+1357,PI: POKE MO+V+1357,C
  162. 1540 RETURN
  163. 1590 REM *** SEVEN CARD
  164. 1592 REM
  165. 1600 POKE MO+1193,PI: POKE MO+V+1193,C
  166. 1610 POKE MO+1197,PI: POKE MO+V+1197,C
  167. 1615 POKE MO+1273,PI: POKE MO+V+1273,C
  168. 1620 POKE MO+1353,PI: POKE MO+V+1353,C
  169. 1625 POKE MO+1277,PI: POKE MO+V+1277,C
  170. 1630 POKE MO+1357,PI: POKE MO+V+1357,C
  171. 1635 POKE MO+1235,PI: POKE MO+V+1235,C
  172. 1640 RETURN
  173. 1690 REM *** EIGHT CARD
  174. 1692 REM
  175. 1700 POKE MO+1193,PI: POKE MO+V+1193,C
  176. 1710 POKE MO+1197,PI: POKE MO+V+1197,C
  177. 1715 POKE MO+1273,PI: POKE MO+V+1273,C
  178. 1720 POKE MO+1353,PI: POKE MO+V+1353,C
  179. 1725 POKE MO+1277,PI: POKE MO+V+1277,C
  180. 1730 POKE MO+1357,PI: POKE MO+V+1357,C
  181. 1735 POKE MO+1235,PI: POKE MO+V+1235,C
  182. 1740 POKE MO+1315,PI: POKE MO+V+1315,C
  183. 1750 RETURN
  184. 1790 REM *** NINE CARD
  185. 1792 REM
  186. 1800 POKE MO+1153,PI: POKE MO+V+1153,C
  187. 1810 POKE MO+1157,PI: POKE MO+V+1157,C
  188. 1820 POKE MO+1233,PI: POKE MO+V+1233,C
  189. 1830 POKE MO+1237,PI: POKE MO+V+1237,C
  190. 1835 POKE MO+1275,PI: POKE MO+V+1275,C
  191. 1840 POKE MO+1313,PI: POKE MO+V+1313,C
  192. 1850 POKE MO+1317,PI: POKE MO+V+1317,C
  193. 1860 POKE MO+1393,PI: POKE MO+V+1393,C
  194. 1870 POKE MO+1397,PI: POKE MO+V+1397,C
  195. 1880 RETURN
  196. 1890 REM *** TEN CARD
  197. 1892 REM
  198. 1900 POKE MO+1153,PI: POKE MO+V+1153,C
  199. 1910 POKE MO+1157,PI: POKE MO+V+1157,C
  200. 1915 POKE MO+1195,PI: POKE MO+V+1195,C
  201. 1920 POKE MO+1233,PI: POKE MO+V+1233,C
  202. 1930 POKE MO+1237,PI: POKE MO+V+1237,C
  203. 1940 POKE MO+1313,PI: POKE MO+V+1313,C
  204. 1950 POKE MO+1317,PI: POKE MO+V+1317,C
  205. 1955 POKE MO+1355,PI: POKE MO+V+1355,C
  206. 1960 POKE MO+1393,PI: POKE MO+V+1393,C
  207. 1970 POKE MO+1397,PI: POKE MO+V+1397,C
  208. 1980 RETURN
  209. 1990 REM *** JACK, QUEEN, KING
  210. 1992 REM
  211. 2000 RETURN
  212. 2090 REM *** ACE CARD
  213. 2092 REM
  214. 2100 POKE MO+1275,PI: POKE MO+V+1275,C
  215. 2110 RETURN
  216. 2200 PRINTCHR$(14)
  217. 2201 PRINT"[144][193]CEY  [196]UCEY"
  218. 2205 PRINT"BY  [196]ON [196]ROHMAN"
  219. 2207 PRINT"10/1/83  V. 2.0
  220. 2210 [153]"   STR$O YOU WANT INSTRUCTIONS (Y/N)
  221. 2215 GETA$:IFA$=""THEN2215
  222. 2220 IFA$<>"Y"THEN2300
  223. 2225 PRINT"[147][193]CEY  [196]UCEY :"
  224. 2227 PRINT"     [212]HE OBJECT IS TO BET SOME OF YOUR"
  225. 2229 PRINT"  MONEY IF YOU THINK THE CARD NOT"
  226. 2230 PRINT"  SHOWING IS BETWEEN THE TWO SHOWING"
  227. 2232 PRINT"  CARDS. [207]DDS WILL BE PAYED IN SOME"
  228. 2234 PRINT"  SITUATIONS IF THE RANGE OF CARDS "
  229. 2236 PRINT"  NEEDED IS SMALL."
  230. 2268 PRINT"     [217]OU START OUT WITH $1500 AND CAN"
  231. 2270 PRINT"  BET ANY AMOUNT AS LONG AS YOU HAVE IT."
  232. 2275 PRINT"[208]RESS  [210]ETURN [146] TO CONTINUE"
  233. 2280 GETA$:IFA$<>CHR$(13)THEN2280
  234. 2300 PRINT"[147]"CHR$(142):RETURN
  235.